Extension { #name : 'CmdCommand' }

{ #category : '*SystemCommands-RefactoringSupport' }
CmdCommand >> confirmRefactoringInContext: aToolContext by: aCommandActivator [

	| submitDialog |
	submitDialog := SycRefactoringPreviewPresenter for: self scopes: aToolContext refactoringScopes.
	submitDialog existChanges
		ifTrue: [
			submitDialog openDialog
				okAction: [
					submitDialog accept.
					aCommandActivator applyCommandResult ];
				cancelAction: [ :p | p beCancel ] ]
		ifFalse: [ submitDialog alert: 'There is no change produced by this refactoring' ].
	CmdCommandAborted signal
]

{ #category : '*SystemCommands-RefactoringSupport' }
CmdCommand >> executeRefactorings [
	self asRefactorings do: [ :each | each execute ]
]

{ #category : '*SystemCommands-RefactoringSupport' }
CmdCommand >> isComplexRefactoring [
	^false
]
